* Figure 3 *
* Cross sectional models with panel variables: Logistic regression models of support for the Right across six consecutive POLPAN waves with two variants of the dependent variable; 0=would not vote and would not vote for the Right(0=would not vote for the Right) *

* V - 0=would not vote and would not vote for the Right
logit rightsuppin1993V  churchatt_II1998 evofsocialism1993 sizecommu1993 education1993I Unempl_1993 zpchhincome1993_88  zsa_socialp1993_1988 gender_0_1 respage1993, or robust
logit rightsuppin1998V  churchatt_II1998 churchtoomuch1998 eusupp1998 conflelrest1998 minyitomaj1998   onegoodparty1998 goodleader1998 evofsocialism1998 sizecommu1998 education1998I Unempl_1998 zpchhincome1998_93  zsa_socialp1998_1993 gender_0_1 respage1998, or robust
logit rightsuppin2003V  churchatt_II2003 churchtoomuch2003 eufutev2003 conflelrest2003 minyitomaj2003   onegoodparty2003 goodleader2003 evofsocialism2003 sizecommu2003 education2003I Unempl_2003 zpchhincome2003_98  zsa_socialp2003_1998 gender_0_1 respage2003, or robust
logit rightsuppin2003_POV  churchatt_II2003 churchtoomuch2003 eufutev2003 conflelrest2003 minyitomaj2003   onegoodparty2003 goodleader2003 evofsocialism2003 sizecommu2003 education2003I Unempl_2003 zpchhincome2003_98  zsa_socialp2003_1998 gender_0_1 respage2003, or robust
logit rightsuppin2008V  churchatt_II2008 churchtoomuch2008 eusupp2008 conflelrest2008 minyitomaj2008   onegoodparty2008 goodleader2008 evofsocialism2008 sizecommu2008 education2008I Unempl_2008  zpchhincome2008_03 zsa_socialp2008_2003 gender_0_1 respage2008, or robust
logit rightsuppin2013V  churchatt_II2013 churchtoomuch2013 eusuppgen2013 conflelrest2013 minyitomaj2013   onegoodparty2013 goodleader2013 evofsocialism2013 sizecommu2013 education2013I Unempl_2013  zpchhincome2013_08 zsa_socialp2013_2008 gender_0_1 respage2013, or robust
logit rightsuppin2018V  churchatt_II2018 churchtoomuch2018corr eusuppgen2018 conflelrest2018 minyitomaj2018   onegoodparty2018 goodleader2018 evofsocialism2018 sizecommu2018 education2018I Unempl_2018  zpchhincome2018_13 zsa_socialp2018_2013 gender_0_1 respage2018, or robust

* II - 0=would not vote for the Right
logit rightsuppin1993II  churchatt_II1998 evofsocialism1993 sizecommu1993 education1993I Unempl_1993  zpchhincome1993_88 zsa_socialp1993_1988 gender_0_1 respage1993, or robust
logit rightsuppin1998II  churchatt_II1998 churchtoomuch1998 eusupp1998 conflelrest1998 minyitomaj1998   onegoodparty1998 goodleader1998 evofsocialism1998 sizecommu1998 education1998I Unempl_1998  zpchhincome1998_93 zsa_socialp1998_1993 gender_0_1 respage1998, or robust
logit rightsuppin2003II  churchatt_II2003 churchtoomuch2003 eufutev2003 conflelrest2003 minyitomaj2003   onegoodparty2003 goodleader2003 evofsocialism2003 sizecommu2003 education2003I Unempl_2003 zpchhincome2003_98  zsa_socialp2003_1998 gender_0_1 respage2003, or robust
logit rightsuppin2003_POII  churchatt_II2003 churchtoomuch2003 eufutev2003 conflelrest2003 minyitomaj2003   onegoodparty2003 goodleader2003 evofsocialism2003 sizecommu2003 education2003I Unempl_2003 zpchhincome2003_98  zsa_socialp2003_1998 gender_0_1 respage2003, or robust
logit rightsuppin2008II  churchatt_II2008 churchtoomuch2008 eusupp2008 conflelrest2008 minyitomaj2008   onegoodparty2008 goodleader2008 evofsocialism2008 sizecommu2008 education2008I Unempl_2008 zpchhincome2008_03  zsa_socialp2008_2003 gender_0_1 respage2008, or robust
logit rightsuppin2013II  churchatt_II2013 churchtoomuch2013 eusuppgen2013 conflelrest2013 minyitomaj2013   onegoodparty2013 goodleader2013 evofsocialism2013 sizecommu2013 education2013I Unempl_2013 zpchhincome2013_08  zsa_socialp2013_2008 gender_0_1 respage2013, or robust
logit rightsuppin2018II  churchatt_II2018 churchtoomuch2018corr eusuppgen2018 conflelrest2018 minyitomaj2018   onegoodparty2018 goodleader2018 evofsocialism2018 sizecommu2018 education2018I Unempl_2018 zpchhincome2018_13  zsa_socialp2018_2013 gender_0_1 respage2018, or robust


* Figure 4 *
* Models for switching used in the article: Table 4. Logistic regression models of switching to the Right, always across two consecutive POLPAN waves with two variants of the dependent variable; 0=would not vote and would not vote for the Right (0=would not vote for the Right) *

* V - 0=would not vote and would not vote for the Right
logit switch1993_1998V gender_0_1 respage1998 education1998I sizecommu1998 zsa_socialp1998_1993 zpchhincome1998_93 , or robust
logit switch1998_2003V gender_0_1 respage2003 education2003I sizecommu2003 zsa_socialp2003_1998 zpchhincome2003_98 , or robust
logit switch2003_2008V gender_0_1 respage2008 education2008I sizecommu2008 zsa_socialp2008_2003 zpchhincome2008_03 , or robust
logit switch2008_2013V gender_0_1 respage2013 education2013I sizecommu2013 zsa_socialp2013_2008 zpchhincome2013_08 , or robust
logit switch2013_2018V gender_0_1 respage2018 education2018I sizecommu2018 zsa_socialp2018_2013 zpchhincome2018_13 , or robust

* II - 0=would not vote for the Right
logit switch1993_1998II gender_0_1 respage1998 education1998I sizecommu1998 zsa_socialp1998_1993 zpchhincome1998_93 , or robust
logit switch1998_2003II gender_0_1 respage2003 education2003I sizecommu2003 zsa_socialp2003_1998 zpchhincome2003_98 , or robust
logit switch2003_2008II gender_0_1 respage2008 education2008I sizecommu2008 zsa_socialp2008_2003 zpchhincome2008_03 , or robust
logit switch2008_2013II gender_0_1 respage2013 education2013I sizecommu2013 zsa_socialp2013_2008 zpchhincome2013_08 , or robust
logit switch2013_2018II gender_0_1 respage2018 education2018I sizecommu2018 zsa_socialp2018_2013 zpchhincome2018_13 , or robust

* Models for switching used in the article: Logistic regression models of switching to the Right, always across two consecutive POLPAN waves with two variants of the dependent variable; 0=would not vote and would not vote for the Right (0=would not vote for the Right) * with Church attendance variable

* V - 0=would not vote and would not vote for the Right
logit switch1993_1998V  gender_0_1 respage1998 education1998I sizecommu1998 zsa_socialp1998_1993 zpchhincome1998_93 churchatt_II1998, or robust
logit switch1998_2003V  gender_0_1 respage2003 education2003I sizecommu2003 zsa_socialp2003_1998 zpchhincome2003_98 churchatt_II1998, or robust
logit switch2003_2008V  gender_0_1 respage2008 education2008I sizecommu2008 zsa_socialp2008_2003 zpchhincome2008_03 churchatt_II2003, or robust
logit switch2008_2013V  gender_0_1 respage2013 education2013I sizecommu2013 zsa_socialp2013_2008 zpchhincome2013_08 churchatt_II2008, or robust
logit switch2013_2018V  gender_0_1 respage2018 education2018I sizecommu2018 zsa_socialp2018_2013 zpchhincome2018_13 churchatt_II2013, or robust

* II - 0=would not vote for the Right
logit switch1993_1998II  gender_0_1 respage1998 education1998I sizecommu1998 zsa_socialp1998_1993 zpchhincome1998_93 churchatt_II1998, or robust
logit switch1998_2003II  gender_0_1 respage2003 education2003I sizecommu2003 zsa_socialp2003_1998 zpchhincome2003_98 churchatt_II1998, or robust
logit switch2003_2008II  gender_0_1 respage2008 education2008I sizecommu2008 zsa_socialp2008_2003 zpchhincome2008_03 churchatt_II2003, or robust
logit switch2008_2013II  gender_0_1 respage2013 education2013I sizecommu2013 zsa_socialp2013_2008 zpchhincome2013_08 churchatt_II2008, or robust
logit switch2013_2018II  gender_0_1 respage2018 education2018I sizecommu2018 zsa_socialp2018_2013 zpchhincome2018_13 churchatt_II2013, or robust


*** Factor analysis ***
* 1993
factor incdiffnec1993 stateassistch1993 stredincome1993 stprovjobs1993, pcf
rotate, promax
predict Factor1
rename Factor1 PROTECTIVESTATE_1993
regress PROTECTIVESTATE_1993 sizecommu1993 education1993I zpchhincome1993 zsa_socialp1993 gender_0_1 respage1993, robust
* 1998
factor incdiffnec1998 stateassistch1998 stredincome1998 stprovjobs1998 eusupp1998 churchtoomuch1998, pcf
rotate, promax
predict Factor1 Factor2 Factor3
rename Factor1 PROTECTIVESTATE_1998
rename Factor2 PROEU_LIB_1998
rename Factor3 PROCHURCH_1998
regress PROTECTIVESTATE_1998 churchatt_II1998 sizecommu1998 education1998I zpchhincome1998 zsa_socialp1998 gender_0_1 respage1998, robust
regress PROEU_LIB_1998 churchatt_II1998 sizecommu1998 education1998I zpchhincome1998 zsa_socialp1998 gender_0_1 respage1998, robust
regress PROCHURCH_1998 churchatt_II1998 sizecommu1998 education1998I zpchhincome1998 zsa_socialp1998 gender_0_1 respage1998, robust
* 2003 
factor incdiffnec2003 stateassistch2003 stredincome2003 stprovjobs2003 eufutev2003 churchtoomuch2003, pcf
rotate, promax
predict Factor1 Factor2
rename Factor1 PROTECTIVESTATE_2003
rename Factor2 PROCHURCH_ANTIEU_ANTILIB_2003
regress PROTECTIVESTATE_2003 churchatt_II2003 sizecommu2003 education2003I zpchhincome2003 zsa_socialp2003 gender_0_1 respage2003, robust
regress PROCHURCH_ANTIEU_ANTILIB_2003 churchatt_II2003 sizecommu2003 education2003I zpchhincome2003 zsa_socialp2003 gender_0_1 respage2003, robust
* 2008
factor stateassistch2008 stredincome2008 stprovjobs2008 eusupp2008 churchtoomuch2008, pcf
rotate, promax
predict Factor1 Factor2
rename Factor1 PROTECTIVESTATE_2008
rename Factor2 PROCHURCH_ANTIEU_2008
regress PROTECTIVESTATE_2008 churchatt_II2008 sizecommu2008 education2008I zpchhincome2008 zsa_socialp2008 gender_0_1 respage2008, robust
regress PROCHURCH_ANTIEU_2008 churchatt_II2008 sizecommu2008 education2008I zpchhincome2008 zsa_socialp2008 gender_0_1 respage2008, robust
* 2013
factor  incdiffnec2013 stateassistch2013 stredincome2013 stprovjobs2013 eusuppgen2013 churchtoomuch2013, pcf
rotate, promax
predict Factor1 Factor2 Factor3
rename Factor1 PROTECTIVESTATE_2013
rename Factor2 PROCHURCH_ANTIEU_2013
rename Factor3 ANTILIB_2013
regress PROTECTIVESTATE_2013 churchatt_II2013 sizecommu2013 education2013I zpchhincome2013 zsa_socialp2013 gender_0_1 respage2013, robust
regress PROCHURCH_ANTIEU_2013 churchatt_II2013 sizecommu2013 education2013I zpchhincome2013 zsa_socialp2013 gender_0_1 respage2013, robust
regress ANTILIB_2013 churchatt_II2013 sizecommu2013 education2013I zpchhincome2013 zsa_socialp2013 gender_0_1 respage2013, robust
* 2018
factor  incdiffnec2018 stateassistch2018 stredincome2018 stprovjobs2018 eusuppgen2018 churchtoomuch2018, pcf
rotate, promax
predict Factor1 Factor2 Factor3
rename Factor1 PROTECTIVESTATE_2018
rename Factor2 PROCHURCH_ANTIEU_2018
rename Factor3 ANTILIB_2018
regress PROTECTIVESTATE_2018 churchatt_II2018 sizecommu2018 education2018I zpchhincome2018 zsa_socialp2018 gender_0_1 respage2018, robust
regress PROCHURCH_ANTIEU_2018 churchatt_II2018 sizecommu2018 education2018I zpchhincome2018 zsa_socialp2018 gender_0_1 respage2018, robust
regress ANTILIB_2018 churchatt_II2018 sizecommu2018 education2018I zpchhincome2018 zsa_socialp2018 gender_0_1 respage2018, robust

* Figure 6. Multinomial logistic regression of a categorical variable
* 1993
mlogit cat_rightsuppin1993V PROTECTIVESTATE_1993, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin1993II PROTECTIVESTATE_1993, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin1993V PROTECTIVESTATE_1993, baseoutcome(1) rrr robust 
mlogit cat_rightsuppin1993II PROTECTIVESTATE_1993, baseoutcome(1) rrr robust 
* 1998
mlogit cat_rightsuppin1998V PROTECTIVESTATE_1998 PROEU_LIB_1998 PROCHURCH_1998, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin1998II PROTECTIVESTATE_1998 PROEU_LIB_1998 PROCHURCH_1998, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin1998V PROTECTIVESTATE_1998 PROEU_LIB_1998 PROCHURCH_1998, baseoutcome(1) rrr robust 
mlogit cat_rightsuppin1998II PROTECTIVESTATE_1998 PROEU_LIB_1998 PROCHURCH_1998, baseoutcome(1) rrr robust 
* 2003
mlogit cat_rightsuppin2003V PROTECTIVESTATE_2003 PROCHURCH_ANTIEU_ANTILIB_2003, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin2003II PROTECTIVESTATE_2003 PROCHURCH_ANTIEU_ANTILIB_2003, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin2003V PROTECTIVESTATE_2003 PROCHURCH_ANTIEU_ANTILIB_2003, baseoutcome(1) rrr robust 
mlogit cat_rightsuppin2003II PROTECTIVESTATE_2003 PROCHURCH_ANTIEU_ANTILIB_2003, baseoutcome(1) rrr robust 
* 2008
mlogit cat_rightsuppin2008V  PROTECTIVESTATE_2008 PROCHURCH_ANTIEU_2008, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin2008II PROTECTIVESTATE_2008 PROCHURCH_ANTIEU_2008, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin2008V  PROTECTIVESTATE_2008 PROCHURCH_ANTIEU_2008, baseoutcome(1) rrr robust 
mlogit cat_rightsuppin2008II PROTECTIVESTATE_2008 PROCHURCH_ANTIEU_2008, baseoutcome(1) rrr robust 
* 2013
mlogit cat_rightsuppin2013V PROTECTIVESTATE_2013 PROCHURCH_ANTIEU_2013 ANTILIB_2013, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin2013II PROTECTIVESTATE_2013 PROCHURCH_ANTIEU_2013 ANTILIB_2013, baseoutcome(0) rrr robust 
mlogit cat_rightsuppin2013V PROTECTIVESTATE_2013 PROCHURCH_ANTIEU_2013 ANTILIB_2013, baseoutcome(1) rrr robust 
mlogit cat_rightsuppin2013II PROTECTIVESTATE_2013 PROCHURCH_ANTIEU_2013 ANTILIB_2013, baseoutcome(1) rrr robust 
* 2018 (binary variable)
logit rightsuppin2018V PROTECTIVESTATE_2018 PROCHURCH_ANTIEU_2018 ANTILIB_2018, or robust
logit rightsuppin2018II PROTECTIVESTATE_2018 PROCHURCH_ANTIEU_2018 ANTILIB_2018, or robust


*** ONLINE APPENDIX ***
* Logistic regression models of support for the Right across six consecutive POLPAN waves with two variants of the dependent variable; 0=would not vote and would not vote for the Right (0=would not vote for the Right) *

* V - 0=would not vote and would not vote for the Right

logit rightsuppin1993V churchatt_II1998 evofsocialism1993 sizecommu1993 education1993I Unempl_1993 zpchhincome1993  zsa_socialp1993 gender_0_1 respage1993, or robust
logit rightsuppin1998V churchatt_II1998 churchtoomuch1998 eusupp1998 conflelrest1998 minyitomaj1998   onegoodparty1998 goodleader1998 evofsocialism1998 sizecommu1998 education1998I Unempl_1998 zpchhincome1998  zsa_socialp1998 gender_0_1 respage1998, robust
logit rightsuppin2003V  churchatt_II2003 churchtoomuch2003 eufutev2003 conflelrest2003 minyitomaj2003   onegoodparty2003 goodleader2003 evofsocialism2003 sizecommu2003 education2003I Unempl_2003 zpchhincome2003  zsa_socialp2003 gender_0_1 respage2003,  robust
logit rightsuppin2008V  churchatt_II2008 churchtoomuch2008 eusupp2008 conflelrest2008 minyitomaj2008   onegoodparty2008 goodleader2008 evofsocialism2008 sizecommu2008 education2008I Unempl_2008 zpchhincome2008  zsa_socialp2008 gender_0_1 respage2008,  robust
logit rightsuppin2013V  churchatt_II2013 churchtoomuch2013 eusuppgen2013 conflelrest2013 minyitomaj2013   onegoodparty2013 goodleader2013 evofsocialism2013 sizecommu2013 education2013I Unempl_2013 zpchhincome2013  zsa_socialp2013 gender_0_1 respage2013,  robust
logit rightsuppin2018V  churchatt_II2018 churchtoomuch2018corr eusuppgen2018 conflelrest2018 minyitomaj2018   onegoodparty2018 goodleader2018 evofsocialism2018 sizecommu2018 education2018I Unempl_2018  zpchhincome2018 zsa_socialp2018 gender_0_1 respage2018,  robust

* II - 0=would not vote for the Right

logit rightsuppin1993II  churchatt_II1998 evofsocialism1993 sizecommu1993 education1993I Unempl_1993 zpchhincome1993  zsa_socialp1993 gender_0_1 respage1993, robust
logit rightsuppin1998II  churchatt_II1998 churchtoomuch1998 eusupp1998 conflelrest1998 minyitomaj1998   onegoodparty1998 goodleader1998 evofsocialism1998 sizecommu1998 education1998I Unempl_1998  zpchhincome1998 zsa_socialp1998 gender_0_1 respage1998,  robust
logit rightsuppin2003II  churchatt_II2003 churchtoomuch2003 eufutev2003 conflelrest2003 minyitomaj2003   onegoodparty2003 goodleader2003 evofsocialism2003 sizecommu2003 education2003I Unempl_2003  zpchhincome2003 zsa_socialp2003 gender_0_1 respage2003, robust
logit rightsuppin2008II  churchatt_II2008 churchtoomuch2008 eusupp2008 conflelrest2008 minyitomaj2008   onegoodparty2008 goodleader2008 evofsocialism2008 sizecommu2008 education2008I Unempl_2008 zpchhincome2008  zsa_socialp2008 gender_0_1 respage2008,  robust
logit rightsuppin2013II  churchatt_II2013 churchtoomuch2013 eusuppgen2013 conflelrest2013 minyitomaj2013   onegoodparty2013 goodleader2013 evofsocialism2013 sizecommu2013 education2013I Unempl_2013  zpchhincome2013 zsa_socialp2013 gender_0_1 respage2013,  robust
logit rightsuppin2018II  churchatt_II2018 churchtoomuch2018corr eusuppgen2018 conflelrest2018 minyitomaj2018   onegoodparty2018 goodleader2018 evofsocialism2018 sizecommu2018 education2018I Unempl_2018 zpchhincome2018  zsa_socialp2018 gender_0_1 respage2018,  robust

* * Switching from soc-dem to r-w
logit switchsoc1993_1998V  gender_0_1 respage1998 education1998I sizecommu1998 zsa_socialp1998_1993 zpchhincome1998_93 churchatt_II1998, or robust
logit switchsoc1998_2003V  gender_0_1 respage2003 education2003I sizecommu2003 zsa_socialp2003_1998 zpchhincome2003_98 churchatt_II1998, or robust
logit switchsoc2003_2008V  gender_0_1 respage2008 education2008I sizecommu2008 zsa_socialp2008_2003 zpchhincome2008_03 churchatt_II2003, or robust
logit switchsoc2008_2013V  gender_0_1 respage2013 education2013I sizecommu2013 zsa_socialp2013_2008 zpchhincome2013_08 churchatt_II2008, or robust
logit switchsoc2013_2018V  gender_0_1 respage2018 education2018I sizecommu2018 zsa_socialp2018_2013 zpchhincome2018_13 churchatt_II2013, or robust

logit switchsoc1993_1998II  gender_0_1 respage1998 education1998I sizecommu1998 zsa_socialp1998_1993 zpchhincome1998_93 churchatt_II1998, or robust
logit switchsoc1998_2003II  gender_0_1 respage2003 education2003I sizecommu2003 zsa_socialp2003_1998 zpchhincome2003_98 churchatt_II1998, or robust
logit switchsoc2003_2008II  gender_0_1 respage2008 education2008I sizecommu2008 zsa_socialp2008_2003 zpchhincome2008_03 churchatt_II2003, or robust
logit switchsoc2008_2013II  gender_0_1 respage2013 education2013I sizecommu2013 zsa_socialp2013_2008 zpchhincome2013_08 churchatt_II2008, or robust
logit switchsoc2013_2018II  gender_0_1 respage2018 education2018I sizecommu2018 zsa_socialp2018_2013 zpchhincome2018_13 churchatt_II2013, or robust
